home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
graphics
/
vlapak1.zip
/
VERTSCR.ZIP
/
VSCR2.ASM
< prev
next >
Wrap
Assembly Source File
|
1993-07-24
|
5KB
|
259 lines
; Written By Draeden of VLA
────────────────────────────────────────────────────────────────────────────
IDEAL
DOSSEG
MODEL SMALL
STACK 400h
CODESEG
P386
────────────────────────────────────────────────────────────────────────────
INCLUDE "modex.inc"
MaxColor = 150
INCLUDE "MXfont2.INC"
SCRW = 80
TxtHeight = 8+4
NewLineData = 65535/SCRW - TxtHeight ;where the next line is put (#)
NewLineOff = NewLineData*SCRW
CurOff dw 0 ;current starting offset
MaxOff = MaxColor*SCRW
CurCopy dw 0
MaxCopy = TxtHeight * SCRW
CurLine db 1 ;from 1 to MaxColor
NUMPAL = 15
CHG = 3
LABEL TopPal BYTE
i= 0
REPT NUMPAL+1
db i,i/3,i/2
i=i+CHG
ENDM
LABEL BotPal BYTE
REPT NUMPAL+1
db i,i/3,i/2
i=i-CHG
ENDM
────────────────────────────────────────────────────────────────────────────
Msg1 db "This is a test! #1",0
Msg2 db "And this is test #2!",0
Msg3 db "What a liberty! Test #3!",0
Msg4 db "Blah Blah BLah #4!",0
Msg5 db "NYUK nyuk nyuk! #5!",0
Msg6 db "Test #6",0
Msg7 db "Ug. another one. #7",0
NumMsgs = 7
MsgOffs dw offset Msg1, offset Msg2, offset Msg3, offset Msg4
dw offset Msg5, offset Msg6, offset Msg7
CurMsg dw 0
TitleMsg db 1,BLUE,"This was coded by ",1,RED,"Draeden",1,BLUE," of ",1,RED,"VLA",0
────────────────────────────────────────────────────────────────────────────
PROC WritePaletteBars
pusha
push ds
mov ax,cs
mov ds,ax
cld
mov si,offset TopPal
movzx ax,[CurLine]
mov dx,03c8h
out dx,al
inc dx
mov cx,NUMPAL*3
cmp al,MaxColor+1-NUMPAL
jbe @@OkTop
mov bx,ax
sub bx,MaxColor+1-NUMPAL
imul bx,3
sub cx,bx
rep outsb
mov cx,bx
mov al,1
dec dx
out dx,al
inc dx
@@OkTop:
rep outsb
mov si,offset BotPal
movzx ax,[CurLine]
add ax,MaxColor-1-NUMPAL
cmp ax,MaxColor
jb @@ok
sub ax,MaxColor-1
@@Ok:
mov dx,03c8h
out dx,al
inc dx
mov cx,NUMPAL*3
cmp al,MaxColor+1-NUMPAL
jbe @@OkBot
mov bx,ax
sub bx,MaxColor+1-NUMPAL
imul bx,3
sub cx,bx
rep outsb
mov cx,bx
mov al,1
dec dx
out dx,al
inc dx
@@OkBot:
rep outsb
pop ds
popa
ret
ENDP
PROC ScrollDown
pusha
push es ds
mov es,[cs:VGAseg]
mov ds,[cs:VGAseg]
mov ah,1
@Set_Write_Mode
mov ah,1111b
@Set_Write_Plane
inc [cs:CurLine]
cmp [cs:CurLine],MaxColor
jbe @@ok
mov [cs:CurLine],1
@@Ok:
mov di,[cs:CurOff]
mov bx,di
add bx,SCRW
cmp bx,MAXOFF
jb @@COOK
xor bx,bx
@@COOK:
mov [cs:CurOff],bx
add di,(240-MaxColor)*SCRW
add bx,(240-MaxColor)*SCRW
@Set_Start_Offset
@WaitVert
call WritePaletteBars
@WaitVertEnd
;@FullVertWait
push di
mov si,NewLineOff
add si,[cs:CurCopy]
push si
mov cx,80
rep movsb
pop si
pop di
add di,MaxColor*SCRW
mov cx,80
rep movsb
mov ax,[cs:CurCopy]
add ax,SCRW
cmp ax,MaxCopy
jb @@Cok
call PutNextMsg
xor ax,ax
@@Cok:
mov [cs:CurCopy],ax
pop ds es
popa
ret
ENDP
;es = VGAseg
PROC PutNextMsg
pusha
push ds
mov ax,cs
mov ds,ax
mov ah,1111b
@Set_Write_plane
mov di,NewLineOff
xor ax,ax
mov cx,SCRW*TxtHeight
rep stosb
mov ah,0
@Set_Write_Mode
mov di,NewLineData
xor ax,ax
mov si,[CurMsg]
mov si,[si + MsgOffs]
mov cl,[CurLine]
call PrintShadeText
add [CurMsg],2
cmp [CurMsg],NumMsgs*2
jb @@noResetMsg
mov [CurMsg],0
@@noResetMsg:
pop ds
popa
ret
ENDP
────────────────────────────────────────────────────────────────────────────
START:
mov ax,cs
mov ds,ax
mov es,ax
call StealFont
@SetModeX m320x240x256, 320
mov bx,MaxColor * 2
@Set_Split
call SetDefPal
mov cl,MaxColor + 1
mov si,offset TitleMsg
mov di, 0
mov ax, 0
call PrintText
@@MainLoop:
call ScrollDown
mov ah,1
int 16h
jz @@MainLoop
mov ah,0
int 16h
mov ax,3
int 10h
mov ax,4c00h
int 21h
END START